home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 June / 1984-06.d64 / tape data files2 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  493b  |  19 lines
  1. 500 rem          * file written *
  2. 510 rem          *  from data   *
  3. 520 rem
  4. 540 dataw21,delight,chapter,farther,built,joyful,stories
  5. 541 databought,scarf,filled,sailed,remain
  6. 550 datacloak,placed,driving,feast,strong,-1,w22,flying
  7. 551 datasometimes,highway,snowing,closing
  8. 560 databedtime,pushed,brushes,dreaming,bookcase,pulled
  9. 561 dataairplane,buying,spending,skated
  10. 570 datadecember,-1,+1
  11. 580 readname$:r$=chr$(13)
  12. 585 ifname$="+1"thengoto650
  13. 590 open1,1,1,name$
  14. 600 readwrd$:print#1,wrd$;r$
  15. 620 ifwrd$<>"-1"then600
  16. 630 close1
  17. 640 goto580
  18. 650 close1:end
  19.